Shocking The Web CD-ROM/SHOCK_CD.ISO/mac/Chapter Tutorials/ch08.Lingo/tutor.dir/00275.txt

Text File | 1996-12-05 | 381 b | 14 lines

global gParamNum, gParamNameList
on startMovie
   set gParamNum = externalParamCount()
   if gParamNum then
     if voidP(gParamNameList) then set ¬
gParamNameList = [:]
      repeat with n = 1 to gParamNum
         set parName = externalParamName(n)
         set parValue = externalParamValue(n)
         setAProp gParamNameList, parName, parValue
      end repeat
   end if
end